home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qmodmous.arc / QMODEMPB.DEF < prev    next >
Text File  |  1986-03-11  |  15KB  |  392 lines
  1. ;
  2. ;
  3. ;       ╔═══════════════════════════════════╗
  4. ;       ║    QMODEM Pop-Up Menus            ║
  5. ;       ║                                   ║
  6. ;       ║ Designed for use with Qmodem V2.0 ║
  7. ;       ║         Mark F. Lewis             ║
  8. ;       ║         06-MAR-86                 ║
  9. ;       ║                                   ║
  10. ;       ║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║
  11. ;       ║ This is the PCBOARD version       ║
  12. ;       ║         QMODEMPB.DEF              ║
  13. ;       ║ Compile with Microsoft's MAKEMENU ║
  14. ;       ║ To use, type:                     ║
  15. ;       ║      MENU QMODEMPB                ║
  16. ;       ║      QMODEM                       ║
  17. ;       ║      MENU OFF                     ║
  18. ;       ║  or place the above in a BAT file ║
  19. ;       ║                                   ║
  20. ;       ╚═══════════════════════════════════╝
  21. ;
  22. ;       Set up initial labels for mouse commands
  23.  
  24.         begin leftb,mousehlp,bothb,mousel,mouser,mouseu,moused,16,24
  25.  
  26. ;       -------------------- Left Button ---------------------------
  27.  
  28. ;       Start QModem if in init mode, else Main menu menu
  29.  
  30. leftb:  match 25,15,,"Qmodem",Keyspc,redlchk    ;Check for initing
  31. redlchk: match 4,9,,"Re-Dial",dialmen,vchkl     ;check for redial
  32. vchkl:   match 5,5,,"Filename",keyspc,vchkn    ;check for viewdir
  33. vchkn:   match 2,6,,"View a file",keyspc,pcb1  :Check for viewdir
  34. pcb1:    match 25,15,,"Main Board Command?",pcbmen,pcb2 ;Check for PCBoard
  35. pcb2:    match 25,16,,"Main Board Command?",pcbmen,pcb3 ;Check for PCBoard
  36. pcb3:    match 25,17,,"Main Board Command?",pcbmen,menu1 ;Check for PCBoard
  37.  
  38.  
  39. ;       --------------------- Both buttons ------------------------
  40.  
  41. ;       Context-contingent cancel
  42.  
  43. bothb:  match 25,15,,"Qmodem",nothing,chkbth
  44. chkbth: match 1,28,,"Command",return,chkpbookb
  45. chkpbookb: match 1,12,,"Phone",keyx,keyesc        :check for Phone Book
  46.  
  47. ;       -------------------- Mouse left -----------------------
  48.  
  49. mousel: match 1,3,,"Strip / Convert",left,nothing  ;check for xlate table
  50.  
  51. ;       ------------------- Mouse right -----------------------
  52.  
  53. mouser: match 1,3,,"Strip / Convert",right,nothing  ;check for xlate table
  54.  
  55. ;       --------------------- Mouse up -----------------------
  56.  
  57. mouseu: match 25,6,,"PgUp",Pgup,chkpbooku       ;check for scroll back
  58. chkpbooku: match 1,12,,"Phone",Pgup,stripcku      :check for Phone Book
  59. stripcku: match 1,3,,"Strip / Convert",Up,nothing  ;check for xlate table
  60.  
  61. ;       ------------------- Mouse down -----------------------
  62.  
  63. moused: match 25,6,,"PgUp",PgDn,chkpbookd       ;check for scroll back
  64. chkpbookd: match 1,12,,"Phone",PgDn,stripckd      ;check for Phone book
  65. stripckd: match 1,3,,"Strip / Convert",down,nothing  ;check for xlate table
  66.  
  67. ;       Initial menu displayed when left button pressed
  68.  
  69. menu1:  popup 1,24,bold
  70.         text "╔═[ Command Menu 2.0 ]══════════════════════════════════╗"
  71.         text "║                 --- Primary ---                       ║"
  72.         text "║ Clear Screen                Redial Last Number        ║"
  73.         text "║ Dial Phone                  DOS Shell                 ║"
  74.         text "║ SCRIPT Execution            Disk Directory            ║"
  75.         text "║ Hang-Up Modem               Exit Qmodem               ║"
  76.         text "║ Change Baud Rates           Secondary Menu            ║"
  77.         text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║"
  78.         text "║ Download files              Toggles Menu              ║"
  79.         text "║ Upload Files                Capture File Toggle       ║"
  80.         text "║ Scroll Lost lines Back      Send modem BREAK Signal   ║"
  81.         text "║ Add Linefeed Toggle         Printer echo Toggle       ║"
  82.         text "║ Cancel Menu                                           ║"
  83.         text "║                                                       ║"
  84.         text "║    Select menu item with Right Button                 ║"
  85.         text "║    Press Left button or Both Buttons to return        ║"
  86.         text "╚═══════════════════════════════════════════════════════╝"
  87.         select 3,3,23,keyaltc
  88.         select 4,3,23,keydial
  89.         select 5,3,23,keyaltf
  90.         select 6,3,23,keyalth
  91.         select 7,3,23,keyaltp
  92. ;
  93.         select 3,31,23,keyaltq
  94.         select 4,31,23,setdos
  95.         select 5,31,23,keyaltw
  96.         select 6,31,23,exitact
  97.         select 7,31,23,menu2
  98. ;
  99.         select 9,3,23,pgdn
  100.         select 10,3,23,pgup
  101.         select 11,3,23,Up
  102.         select 12,3,23,shfttab
  103.         select 13,2,22
  104. ;
  105.         select 9,31,23,menu3
  106.         select 10,31,23,keycthm
  107.         select 11,31,23,keyctnd
  108.         select 12,31,23,keyctpt
  109.         pend
  110. ;
  111. setdos:  execute keyaltr,shellset
  112. shellset:  assign shelb,mousehlp,bothb,mousel,mouser,mouseu,moused,16,24
  113. shelb: popup 1,1,bold
  114.         text "╔═[ DOS Shell ]════╗"
  115.         text "║ Return to Qmodem ║"
  116.         text "║   Cancel Menu    ║"
  117.         text "╚══════════════════╝"
  118.         select 2,2,18,retshell
  119.         select 3,2,18
  120.         pend
  121. ;
  122. retshell: execute shellout,return,noshell
  123. noshell:  assign leftb,mousehlp,bothb,mousel,mouser,mouseu,moused,16,24
  124. ;
  125. menu2:  popup 1,24,bold
  126.         text "╔═[ Command Menu 2.0 ]══════════════════════════════════╗"
  127.         text "║                 -- Secondary --                       ║"
  128.         text "║ Translate Table             Change Sub-Dirs           ║"
  129.         text "║ Function Key Set            View a File               ║"
  130.         text "║ Log Drive Change            Delete a File             ║"
  131.         text "║                                                       ║"
  132.         text "║                             Primary Menu              ║"
  133.         text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║"
  134.         text "║ Download files              Toggles Menu              ║"
  135.         text "║ Upload Files                Capture File Toggle       ║"
  136.         text "║ Scroll Lost lines Back      Send modem BREAK Signal   ║"
  137.         text "║ Add Linefeed Toggle         Printer echo Toggle       ║"
  138.         text "║ Cancel Menu                                           ║"
  139.         text "║                                                       ║"
  140.         text "║    Select menu item with Right Button                 ║"
  141.         text "║    Press Left button or Both Buttons to return        ║"
  142.         text "╚═══════════════════════════════════════════════════════╝"
  143.         select 3,3,23,keyalta
  144.         select 4,3,23,keyaltj
  145.         select 5,3,23,keyaltl
  146. ;
  147.         select 3,31,23,keyalto
  148.         select 4,31,23,keyaltv
  149.         select 5,31,23,keyalty
  150.         select 7,31,23,menu1
  151. ;
  152.         select 9,3,23,pgdn
  153.         select 10,3,23,pgup
  154.         select 11,3,23,Up
  155.         select 12,3,23,shfttab
  156.         select 13,2,22
  157. ;
  158.         select 9,31,23,menu3
  159.         select 10,31,23,keycthm
  160.         select 11,31,23,keyctnd
  161.         select 12,31,23,keyctpt
  162.         pend
  163.  
  164. menu3:  popup 1,24,bold
  165.         text "╔═[ Command Menu 2.0 ]══════════════════════════════════╗"
  166.         text "║                 --- Toggles ---                       ║"
  167.         text "║ Beeps and Bells             ANSI Music Mode           ║"
  168.         text "║ Echo                        Split Screen Mode         ║"
  169.         text "║ ANSI Graphics Mode          Screen Dump               ║"
  170.         text "║ Program Info                Xon / Xoff                ║"
  171.         text "║                             Secondary Menu            ║"
  172.         text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║"
  173.         text "║ Download files              Primary Menu              ║"
  174.         text "║ Upload Files                Capture File Toggle       ║"
  175.         text "║ Scroll Lost lines Back      Send modem BREAK Signal   ║"
  176.         text "║ Add Linefeed Toggle         Printer echo Toggle       ║"
  177.         text "║ Cancel Menu                                           ║"
  178.         text "║                                                       ║"
  179.         text "║    Select menu item with Right Button                 ║"
  180.         text "║    Press Left button or Both Buttons to return        ║"
  181.         text "╚═══════════════════════════════════════════════════════╝"
  182.         select 3,3,23,keyaltb
  183.         select 4,3,23,keyalte
  184.         select 5,3,23,keyaltg
  185.         select 6,3,23,keyalti
  186. ;
  187.         select 3,31,23,keyaltm
  188.         select 4,31,23,keyalts
  189.         select 5,31,23,keyaltt
  190.         select 6,31,23,keyaltz
  191.         select 7,31,23,menu2
  192. ;
  193.         select 9,3,23,pgdn
  194.         select 10,3,23,pgup
  195.         select 11,3,23,Up
  196.         select 12,3,23,shfttab
  197.         select 13,2,22
  198. ;
  199.         select 9,31,23,menu1
  200.         select 10,31,23,keycthm
  201.         select 11,31,23,keyctnd
  202.         select 12,31,23,keyctpt
  203.         pend
  204.  
  205. exitact: execute keyaltx,exitmen
  206.  
  207. exitmen: popup 6,20,bold
  208.         text "╔═[ Leave Qmodem ]════════════╗"
  209.         text "║      Are you SURE?          ║"
  210.         text "║                             ║"
  211.         text "║         Yes                 ║"
  212.         text "║         No                  ║"
  213.         text "║  Exit with modem connected  ║"
  214.         text "╚═════════════════════════════╝"
  215.         select 4,3,27,Keyy
  216.         select 5,3,27,Keyn
  217.         select 6,3,27,keyx
  218.         pend
  219.  
  220. dialmen: popup 12,8,bold
  221.         text "╔═[ Re-Dial Action ]══╗"
  222.         text "║     Cycle Call      ║"
  223.         text "║     Delete Call     ║"
  224.         text "║        Abort        ║"
  225.         text "║     Cancel Menu     ║"
  226.         text "╚═════════════════════╝"
  227.         select 2,2,21,Keyc
  228.         select 3,2,21,keyd
  229.         select 4,2,21,keyesc
  230.         select 5,2,21
  231.         pend
  232.  
  233. PCBmen:  popup 1,1,bold
  234.  text "╔═[ PC Board Main Menu ]═══════════════════════════════════════╗"
  235.  text "║ Abandon Conference   Join a Conference   Read Messages       ║"
  236.  text "║ Bulletin Listing     Kill a Message      Trans. Protocol     ║"
  237.  text "║ Comment to SYSOP     Locate Files(Name)  Upload a File       ║"
  238.  text "║ Download a File      Mode (Graphics)     View Settings       ║"
  239.  text "║ Enter a Message      New Files(Date)     Write User Info     ║"
  240.  text "║ File Directories     Operator Page       Xpert On/Off        ║"
  241.  text "║ Goodbye (Hang-Up)    Page Length         Your Personal Mail  ║"
  242.  text "║ Help Functions       Quick Msg Scan      Script Questionnaire║"
  243.  text "║ Initial Welcome      Cancel Menu         Zippy DIR Scan      ║"
  244.  text "║                      Qmodem Menu                             ║"
  245.  text "║    Select menu item with Right Button                        ║"
  246.  text "║    Press Left button or Both Buttons to return               ║"
  247.  text "╚══════════════════════════════════════════════════════════════╝"
  248.         select 2,2,20,keyar
  249.         select 3,2,20,keybr
  250.         select 4,2,20,keycr
  251.         select 5,2,20,keydr
  252.         select 6,2,20,keyer
  253.         select 7,2,20,keyfr
  254.         select 8,2,20,keygr
  255.         select 9,2,20,keyhr
  256.         select 10,2,20,keyir
  257. ;
  258.         select 2,23,20,keyjr
  259.         select 3,23,20,keykr
  260.         select 4,23,20,keylr
  261.         select 5,23,20,keymr
  262.         select 6,23,20,keynr
  263.         select 7,23,20,keyor
  264.         select 8,23,20,keypr
  265.         select 9,23,20,keyqr
  266.         select 10,23
  267.         select 11,23,20,menu1
  268. ;
  269.         select 2,44,20,keyrr
  270.         select 3,44,20,keytr
  271.         select 4,44,20,keyur
  272.         select 5,44,20,keyvr
  273.         select 6,44,20,keywr
  274.         select 7,44,20,keyxr
  275.         select 8,44,20,keyyr
  276.         select 9,44,20,keysr
  277.         select 10,44,20,keyzr
  278.         pend
  279.  
  280. keyar: execute keya,return
  281. keybr: execute keyb,return
  282. keycr: execute keyc,return
  283. keydr: execute keyd,return
  284. keyer: execute keye,return
  285. keyfr: execute keyf,return
  286. keygr: execute keyg,return
  287. keyhr: execute keyh,return
  288. keyir: execute keyi,return
  289. keyjr: execute keyj,return
  290. keykr: execute keyk,return
  291. keylr: execute keyl,return
  292. keymr: execute keym,return
  293. keynr: execute keyn,return
  294. keyor: execute keyo,return
  295. keypr: execute keyp,return
  296. keyqr: execute keyq,return
  297. keyrr: execute keyr,return
  298. keysr: execute keys,return
  299. keytr: execute keyt,return
  300. keyur: execute keyu,return
  301. keyvr: execute keyv,return
  302. keywr: execute keyw,return
  303. keyxr: execute keyx,return
  304. keyyr: execute keyy,return
  305. keyzr: execute keyz,return
  306. keynsr: execute keyns,return
  307.  
  308. ;       Mouse help
  309.  
  310. mousehlp: popup 2,1
  311.         text "╔════════════════ MOUSE  HELP ══════════════════╗"
  312.         text "║                                               ║"
  313.         text "║ Left button  - Displays Main menu             ║"
  314.         text "║ Right button - Displays Mouse Help menu       ║"
  315.         text "║ Both buttons - Cancels action-in-progress     ║"
  316.         text "║                                               ║"
  317.         text "║ Moving the mouse up,down,left, or right will  ║"
  318.         text "║ cause the cursor to move in that direction.   ║"
  319.         text "║                                               ║"
  320.         text "╚═══════════════════════════════════════════════╝"
  321.         select 1,19,11
  322.         pend
  323. ;
  324. ;               --- Key Commands ---
  325. shellout: TYPE "EXIT"
  326. keya:     Type "A"                      ;A
  327. keyb:     type "B"                      ;B
  328. keyc:     Type "C"                      ;C
  329. keyd:     Type "D"                      ;D
  330. keye:     Type "E"                      ;E
  331. Keyf:     Type "F"                      ;F
  332. keyg:     Type "G"                      ;G
  333. Keyh:     Type "H"                      ;H
  334. keyi:     Type "I"                      ;I
  335. keyj:     type "J"                      ;J
  336. keyk:     Type "K"                      ;K
  337. keyl:     type "L"                      ;L
  338. keym:     Type "M"                      ;M
  339. keyn:     Type "N"                      ;N
  340. keyo:     Type "O"                      ;O
  341. keyp:     type "P"                      ;P
  342. keyq:     Type "Q"                      ;Q
  343. keyr:     Type "R"                      ;R
  344. keys:     Type "S"                      ;S
  345. keyt:     Type "T"                      ;T
  346. keyu:     Type "U"                      ;U
  347. keyv:     type "V"                      ;V
  348. keyw:     Type "W"                      ;W
  349. keyx:     type "X"                      ;X
  350. keyy:     type "Y"                      ;Y
  351. keyz:     type "Z"                      ;Z
  352. keyns:    type "NS"                     ;NS
  353. keyesc: type 27                         ;Escape
  354. keyspc: type " "                        ;Space
  355. keyaltc: type 0,46
  356. keydial: type 0,32,13
  357. keyaltf: Type 0,33
  358. keyalth: type 0,35
  359. keyaltp: type 0,25
  360. keyaltq: type 0,16
  361. keyaltr: type 0,19
  362. keyaltw: type 0,17
  363. keyaltx: type 0,45
  364. shfttab: type 0,15
  365. keyalta: type 0,30
  366. keyaltj: type 0,36
  367. keyaltl: type 0,38
  368. keyalto: type 0,24
  369. keyaltv: type 0,47
  370. keyalty: type 0,21
  371. keyaltb: type 0,48
  372. keyalte: type 0,18
  373. keyaltg: type 0,34
  374. keyalti: type 0,23
  375. keyaltm: type 0,50
  376. keyalts: type 0,31
  377. keyaltt: type 0,20
  378. keyaltz: type 0,44
  379. keyctnd: type 0,117
  380. keyctpt: type 0,114
  381.  
  382. NOTHING:        NOTHING
  383.  
  384. RETURN:        TYPE 13                 ;Return
  385. PGUP:          TYPE 0,73
  386. PGDN:          TYPE 0,81
  387. LEFT:          TYPE 0,75
  388. RIGHT:         TYPE 0,77
  389. UP:            TYPE 0,72
  390. DOWN:          TYPE 0,80
  391. keycthm: type 0,119
  392.